Option Explicit
Sub A_Sample040()
    Dim myRng As Range
    Dim mySht As Worksheet
    Dim myAdr As String
    Set mySht = Worksheets(1)	'N
    'myAdr = "A1:G30"		']wʰϰ
    'mySht.ScrollArea = myAdr
    'ǳƨ즹
    myAdr = mySht.ScrollArea
    If Len(myAdr) > 0 Then
        Set myRng = mySht.Range(myAdr)
        MsgBox myRng.Address
    Else
        MsgBox "S]wScrollArea"
    End If
    'mySht.ScrollArea = ""
    Set myRng = Nothing		'
    Set mySht = Nothing
End Sub
